home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -screenplay- / shareware / pakman2000 / install_pacman2000 < prev    next >
Text File  |  1997-12-01  |  3KB  |  90 lines
  1. ;****************************************************************************
  2. ;        Pac-Man2000 installer by Simon Churchill 1996
  3. ;****************************************************************************
  4. (
  5.    ; script variables...
  6.  
  7.    (set programname "Pac-Man2000 1.0")          ; name of program
  8.    (set drawername "Pac-Man2000")               ; name of drawer to make for program
  9.    (set assignname "PacMan2000")                ; assign to make for program
  10.    (set diskname "pacman2000:")                 ; second install disk name
  11.    (set bytesreq "625KB")                       ; HD space required
  12.  
  13.    (complete 0)
  14.  
  15.    (set initialdir @default-dest)                ; defaults to biggest drive
  16.  
  17.    (set wheredir
  18.       (askdir
  19.          (prompt "Select a directory where you would like to install the " programname
  20.                  " software.  "
  21.                  "(Note:  About " bytesreq " of free space is required for "
  22.                  "complete installation.)")
  23.          (help @askdir-help)
  24.          (default initialdir)
  25.       )
  26.    )
  27.  
  28.   (complete 25)
  29.    ; Ask expert user the name of the drawer to create
  30.       (set drawername
  31.          (askstring
  32.             (prompt "This installation will create a drawer named `" drawername "'. \n for the Pac-Man2000 Program + Data Files, If you \n would like to change the name of this drawer \n type the new name below.")
  33.             (help @askstring-help)
  34.             (default drawername)
  35.          )
  36.       )
  37.  
  38.    (set wheredir (tackon wheredir drawername))
  39.    (message programname " will be installed in a new drawer called `" wheredir "'. \n  If this is correct, click `Proceed'.")
  40.    (makedir wheredir (infos))
  41.  
  42.    (set @default-dest wheredir)
  43.  
  44.    (complete 50) 
  45.  
  46.    (working "Installing Pac-Man2000 Program + Data Files ...")
  47.  
  48.    (copyfiles
  49.       (prompt "")
  50.       (help @copyfiles-help)
  51.       (source diskname)
  52.       (dest wheredir)
  53.       (pattern "#?")
  54.       (confirm)
  55.  
  56.    )
  57.  
  58.    ;================================================================
  59.    ; Miscellaneous stuff
  60.    ;================================================================
  61.  
  62.     (complete 75)
  63.    (working "Setting Up Pac-Man2000 Configuration...")
  64.     (
  65.          (set cmds
  66.             ("Assign \"%ls:\" \"%ls\"\n"
  67.                assignname @default-dest (tackon @default-dest "Help"))
  68.          )
  69.       )
  70.  
  71.  
  72.    (makeassign assignname wheredir)
  73.  
  74.  
  75.    (startup assignname
  76.       (prompt
  77.          "Do you want to add the following commands to your "
  78.          "user-startup file?\n ( The dir needs assigning for the game to work ) \n " cmds
  79.       )
  80.       (help @startup-help)
  81.       (command cmds)
  82.    )
  83.  
  84.  
  85.    (complete 100)
  86.  
  87.    ; Installation complete!
  88. )
  89.  
  90.